﻿Imports System.Data.SqlClient
Public Class DF01_MR
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F01MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@certifica", dts.certific)
            cmd.Parameters.AddWithValue("ape_nom_den_tit", dts.apenomdentit)
            cmd.Parameters.AddWithValue("@dni_tit", dts.dnitit)
            cmd.Parameters.AddWithValue("@le_tit", dts.letit)
            cmd.Parameters.AddWithValue("@lc_tit", dts.lctit)
            cmd.Parameters.AddWithValue("@ci_tit", dts.citit)
            cmd.Parameters.AddWithValue("@pasaporte_tit", dts.pasaportetit)
            cmd.Parameters.AddWithValue("@num_tit", dts.numtit)
            cmd.Parameters.AddWithValue("@autoridad_tit", dts.autoridadtit)
            cmd.Parameters.AddWithValue("@ape_nom_den_cond", dts.apenomdencond)
            cmd.Parameters.AddWithValue("@dni_cond", dts.dnicond)
            cmd.Parameters.AddWithValue("@le_cond", dts.lecond)
            cmd.Parameters.AddWithValue("@lc_cond", dts.lccond)
            cmd.Parameters.AddWithValue("@ci_cond", dts.cicond)
            cmd.Parameters.AddWithValue("@pasaporte_cond", dts.pasaportecond)
            cmd.Parameters.AddWithValue("@num_cond", dts.numcond)
            cmd.Parameters.AddWithValue("@autoridad_cond", dts.autoridadcond)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacion)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@fecha_dia", dts.fechadia)
            cmd.Parameters.AddWithValue("@fecha_mes", dts.fechames)
            cmd.Parameters.AddWithValue("@fecha_año", dts.fechaaño)
            cmd.Parameters.AddWithValue("@autorizado", dts.autorizad)
            cmd.Parameters.AddWithValue("@tipo_doc_num", dts.tipodocnum)
            cmd.Parameters.AddWithValue("@ape_nom", dts.apenom)
            cmd.Parameters.AddWithValue("@doc", dts.dc)
            cmd.Parameters.AddWithValue("@caracter", dts.caracte)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function editar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_editar_F01MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@certifica", dts.certific)
            cmd.Parameters.AddWithValue("ape_nom_den_tit", dts.apenomdentit)
            cmd.Parameters.AddWithValue("@dni_tit", dts.dnitit)
            cmd.Parameters.AddWithValue("@le_tit", dts.letit)
            cmd.Parameters.AddWithValue("@lc_tit", dts.lctit)
            cmd.Parameters.AddWithValue("@ci_tit", dts.citit)
            cmd.Parameters.AddWithValue("@pasaporte_tit", dts.pasaportetit)
            cmd.Parameters.AddWithValue("@num_tit", dts.numtit)
            cmd.Parameters.AddWithValue("@autoridad_tit", dts.autoridadtit)
            cmd.Parameters.AddWithValue("@ape_nom_den_cond", dts.apenomdencond)
            cmd.Parameters.AddWithValue("@dni_cond", dts.dnicond)
            cmd.Parameters.AddWithValue("@le_cond", dts.lecond)
            cmd.Parameters.AddWithValue("@lc_cond", dts.lccond)
            cmd.Parameters.AddWithValue("@ci_cond", dts.cicond)
            cmd.Parameters.AddWithValue("@pasaporte_cond", dts.pasaportecond)
            cmd.Parameters.AddWithValue("@num_cond", dts.numcond)
            cmd.Parameters.AddWithValue("@autoridad_cond", dts.autoridadcond)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacion)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@fecha_dia", dts.fechadia)
            cmd.Parameters.AddWithValue("@fecha_mes", dts.fechames)
            cmd.Parameters.AddWithValue("@fecha_año", dts.fechaaño)
            cmd.Parameters.AddWithValue("@autorizado", dts.autorizad)
            cmd.Parameters.AddWithValue("@tipo_doc_num", dts.tipodocnum)
            cmd.Parameters.AddWithValue("@ape_nom", dts.apenom)
            cmd.Parameters.AddWithValue("@doc", dts.dc)
            cmd.Parameters.AddWithValue("@caracter", dts.caracte)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
